unit CommonInterface;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB;

type

  IDataSelForm=interface
    function ShowDataSelForm(KeyWord: string):boolean;
    function GetDatabyDS(DS:TDataSource):boolean;
    function GetDatabyForm(F:TForm):boolean;
    function SetFillField(FieldList:string):boolean;
  end;


  function CreateDataForm(const DataFormID:string;AOwner:TComponent):TForm;
  function CreateDataSelForm(const DataSelFormID:string;AOwner:TComponent):IDataSelForm;

implementation


end.
